home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / pascal / ssavwin.exe / TEXTSAVR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-04-22  |  1.7 KB  |  42 lines
  1. {****************************************************************************
  2. *                                                                           *
  3. *  TextSavr.pas: Plug-in animation module for SSaveDem.pas                  *
  4. *                                                                           *
  5. *  Rev. 0.1   19.4.93   MK  IR                                              *
  6. *                                                                           *
  7. ****************************************************************************}
  8.  
  9. { Name for this Screen Saver - shows up in Control Panel: }
  10. {$D SCRNSAVE TextOut }
  11.  
  12. const AppName: PChar = 'Screen Saver.TextOut' ;
  13.  
  14. type
  15.   PMySaverWin = ^TMySaverWin;
  16.   TMySaverWin = Object(TScSaverWin)
  17.     procedure DoTheShow; virtual;
  18.   end;
  19.  
  20. {****************************************************************************
  21. *                                                                           *
  22. *              T M y S a v e r W i n . D o T h e S h o w                    *
  23. *                                                                           *
  24. *  Displays a line of text. (You can use this to test how "burn-in-safe"    *
  25. *  your monitor really is <g>.)                                             *
  26. *                                                                           *
  27. ****************************************************************************}
  28.  
  29. procedure TMySaverWin.DoTheShow ;
  30.  
  31. var TheDC: hDC;
  32.  
  33. const TheText: PChar = 'I''m a Screen Saver - believe it or not!';
  34.  
  35. begin
  36. TheDC := TestHandle (GetDC (hWindow));
  37. TextOut (TheDC, 100,100, TheText, lstrlen (TheText));
  38. ReleaseDC (hWindow, TheDC);
  39. end;
  40.  
  41.  
  42.